home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe / Emulator Universe CD (1998).iso / C64 / ROMs / GUNSHIP2.D64 / g2 (.txt) < prev    next >
Commodore BASIC  |  1994-07-01  |  2KB  |  46 lines
  1. 0 REM     (null)
  2. 1 POKE56333,127:POKE792,193:POKE52,19:POKE56,19:CLR
  3. 2 GOSUB19000:F=33024:GOSUB900:GOSUB15000:GOTO1000
  4. 7 VZ=V+SV:ZV=ZV-65536*(ZV<0):POKEVZ,FNLB(ZV):POKEVZ+1,ZV/KP:RETURN
  5. 8 VZ=V+SV:ZV=PEEK(VZ)+KP*PEEK(VZ+1):RETURN
  6. 10 POKEA0,FNLB(F*KP):POKEA1,F:POKEA2,FNLB(T*KP):POKEA3,T:POKEA4,FNLB(L*KP)
  7. 11 POKEA5,L:SYSM6:RETURN
  8. 900 RESTORE:POKEA0,0:POKEA2,0:POKEA3,63:POKEA4,0:POKEA5,1:SYSSB
  9. 905 S=54272:OD=21464:EN=81*KP
  10. 920 FORI=0TO5:POKEOD+I,PEEK(848+I+I):NEXTI
  11. 930 POKE944,0:FORI=1TO9:GOSUB990:NEXTI
  12. 931 DATA 124,127,368,370,75,76,57,79,80
  13. 935 FORI=52TO58:GOSUB990:NEXTI
  14. 936 DATA 350,352,372,77,362,131,130
  15. 940 A=81*KP+PEEK(21473):V=118:ZV=PEEK(A)*KP:GOSUB7:V=120:ZV=PEEK(A+128)*KP
  16. 941 GOSUB7
  17. 950 A=PEEK(862):IFPEEK(830)THENA=5
  18. 951 FORI=0TOA:READZ:POKEA0,Z:READX,Y:POKEA1,X*16+Y:READZ:POKEA2,Z:SYS32921
  19. 952 NEXTI
  20. 955 DATA 6,0,9,5, 3,0,8,9, 14,9,5,13, 14,0,8,7, 6,0,9,5, 11,15,12,0
  21. 989 RETURN
  22. 990 READV:ZV=PEEK(828+I+I)+KP*PEEK(829+I+I)
  23. 991 IFV>=KPTHENV=V-KP:GOSUB7:GOTO993
  24. 992 POKEV+SV,FNLB(ZV)
  25. 993 RETURN
  26. 1000 REM
  27. 1010 OPEN 15,8,15,"I0:":INPUT#15,E:CLOSE15:IFE=0THENPOKE53265,0:GOTO1060
  28. 1020 POKE53265,27:PRINT"[147][144]","PLEASE INSERT DISK,"
  29. 1021 PRINT,"   BACK SIDE UP."
  30. 1025 PRINT:PRINT,"THEN PRESS BUTTON."
  31. 1030 IFPEEK(56320)AND16THEN1030
  32. 1035 GOTO1000
  33. 1060 PRINT "[147]LOAD ";CHR$(34);"B";CHR$(34);",8,1RUN"
  34. 1061 POKE631,13:POKE632,13:POKE198,2
  35. 1062 PRINT "";:NEW
  36. 15000 POKE53280,0:POKE53265,0:POKE28739,PEEK(828+120)
  37. 15001 POKEA0,0:POKEA1,64:POKEA2,0:POKEA3,216:POKEA4,232:POKEA5,3:SYSMV
  38. 15002 POKEA0,0:POKEA1,96:POKEA2,0:POKEA3,64:POKEA4,64:POKEA5,16:SYSM6
  39. 15003 POKE808,237:POKE54296,15:SYS12544:REM RETURN
  40. 16000 POKEA0,0:POKEA1,216:POKEA2,0:POKEA3,64:POKEA4,232:POKEA5,3:SYSMVB
  41. 16001 POKE53280,1:POKE53281,1:POKES+24,0:RETURN
  42. 19000 DEFFNLB(X)=(X-32768)AND255
  43. 19002 SB=32809:MV=32838:BM=32871:KE=32910:S6=32797:M6=32788
  44. 19003 A0=165:A1=A0+1:A2=A1+1:A3=A2+1:A4=A3+1:A5=A4+1:A6=A5+1:KP=256:KK=KP*KP
  45. 19004 SV=16128:RETURN
  46.